﻿Public Class QLPH_HS

    Private Sub mn_TraCuuHS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mn_TraCuuHS.Click
        Dim frm As TraCuuHS = New TraCuuHS()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mn_logout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mn_logout.Click
        Me.Hide()
        Dim frm As New DangNhap()
        frm.Show()
    End Sub
End Class